Chip 1998 September/CHIP Eylül 1998.iso/demolar/lokman/DISK1/_SETUP.4/Group1/bartanim.exe/0/RCDATA/TURUNBARFORM/TURUNBARFORM.txt

Text File | 1998-07-13 | 6KB | 266 lines

object UrunBarForm: TUrunBarForm
  Left = 72
  Top = 5
  Width = 525
  Height = 447
  ActiveControl = DBGrid1
  Caption = 'BARKOD TANIM'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 61
    Width = 517
    Height = 359
    HelpContext = 705
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    Color = clTeal
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 6
      Top = 6
      Width = 357
      Height = 347
      Align = alLeft
      Color = clSilver
      DataSource = UrunBarTabSRC
      FixedColor = clSilver
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 0
      TitleFont.Color = clBlue
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
    end
    object DBGrid2: TDBGrid
      Left = 368
      Top = 32
      Width = 142
      Height = 320
      Color = clSilver
      DataSource = DataSource1
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      TitleFont.Color = clRed
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnDblClick = DBGrid2DblClick
      OnKeyDown = DBGrid2KeyDown
    end
    object BtnTEKRAR: TBitBtn
      Left = 370
      Top = 7
      Width = 136
      Height = 23
      Hint = 'F5 Tu�u'
      Caption = 'Tekrarl� Barkodlar� G�r'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = BtnTEKRARClick
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 517
    Height = 61
    Align = alTop
    Color = 4194304
    TabOrder = 1
    object Label1: TLabel
      Left = 13
      Top = 19
      Width = 89
      Height = 14
      Caption = 'Aranan �r�n &Ad�'
      FocusControl = EditAD
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 242
      Top = 19
      Width = 81
      Height = 14
      Caption = 'Aranan &Barkod'
      FocusControl = EditBAR
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object LabelSIRA: TLabel
      Left = 1
      Top = 1
      Width = 515
      Height = 14
      Align = alTop
      Alignment = taCenter
      Caption = 'L�STE �R�N ADINA G�RE SIRALI'
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object BitBtn1: TBitBtn
      Left = 396
      Top = 31
      Width = 107
      Height = 24
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      Kind = bkClose
      Spacing = 1
    end
    object EditAD: TEdit
      Left = 10
      Top = 35
      Width = 222
      Height = 22
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnEnter = EditADEnter
      OnKeyUp = EditADKeyUp
    end
    object EditBAR: TEdit
      Left = 239
      Top = 35
      Width = 122
      Height = 22
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      HideSelection = False
      ParentFont = False
      TabOrder = 2
      OnEnter = EditBAREnter
      OnKeyDown = EditBARKeyDown
    end
  end
  object UrunBarTabSRC: TDataSource
    DataSet = UrunBarTab
    Left = 295
    Top = 101
  end
  object UrunBarTab: TTable
    AfterInsert = UrunBarTabAfterInsert
    BeforePost = UrunBarTabBeforePost
    AfterPost = UrunBarTabAfterPost
    DatabaseName = 'ECZ'
    IndexName = 'ILACADI'
    TableName = 'urun.db'
    Left = 260
    Top = 109
    object UrunBarTabILACAD: TStringField
      DisplayLabel = '�r�n Ad�'
      FieldName = 'ILACAD'
      ReadOnly = True
      Required = True
      Size = 36
    end
    object UrunBarTabILACKOD: TStringField
      DisplayLabel = '�r�n barkodu'
      DisplayWidth = 16
      FieldName = 'ILACKOD'
      Size = 13
    end
    object UrunBarTabILACNO: TAutoIncField
      FieldName = 'ILACNO'
      Visible = False
    end
  end
  object QBARKOD: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {01000100066B6F647665720001020030000000}
    SQL.Strings = (
      'SELECT'
      'URUN.ILACNO,'
      'URUN.ILACKOD'
      'FROM URUN'
      'WHERE (ILACKOD=:kodver)')
    Left = 302
    Top = 246
    object QBARKODILACNO: TIntegerField
      FieldName = 'ILACNO'
    end
    object QBARKODILACKOD: TStringField
      FieldName = 'ILACKOD'
      Size = 13
    end
  end
  object QTekrar: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'URUN.ILACKOD,'
      'COUNT(URUN.ILACKOD)'
      'FROM URUN'
      'WHERE ILACKOD IS NOT NULL'
      'GROUP BY ILACKOD'
      'HAVING COUNT(URUN.ILACKOD)>1'
      ''
      '')
    Left = 400
    Top = 272
    object QTekrarILACKOD: TStringField
      DisplayLabel = 'Tekarl� Barkod'
      FieldName = 'ILACKOD'
      Size = 13
    end
    object QTekrarCOUNTOFILACKOD: TIntegerField
      DisplayLabel = 'Tkr'
      DisplayWidth = 3
      FieldName = 'COUNT OF ILACKOD'
    end
  end
  object DataSource1: TDataSource
    DataSet = QTekrar
    Left = 424
    Top = 264
  end
end